home *** CD-ROM | disk | FTP | other *** search
- ; Install script for LastAlert3
- ;
- ; Note: What a mess !!!
- ;
-
- (set @default-dest (cat ""))
- (set #bad-kick (cat "You must be using Kickstart 2.0 or higher to use LastAlert3."))
-
- ;=============================================================================
-
- ; make sure we are running under a 2.0 ROM
-
- (if (< (/ (getversion) 65536) 37)
- (
- (abort #bad-kick)
- ))
-
- ;=============================================================================
-
-
- (set #path-alerts ("S/DaLastAlert3.alerts"))
-
- (set #path-check ("68000/DaLastAlert3-Check"))
- (set #path ("68000/DaLastAlert3"))
- (set #cpu "68000")
-
- (complete 0)
-
- ;=============================================================================
-
-
- (set name-check
- (askfile
- (prompt "OK, where to install LastAlert3-Check ??")
- (help @askfile-help)
- (default "SYS:WbStartup/")
- )
- )
-
- (copyfiles
- (
- (prompt "Copying DaLastAlert3...")
- (help @copyfiles-help)
- (source "")
- (choices #path-check)
- (dest name-check)
- ))
-
- (complete 25)
-
- ;=============================================================================
-
- (set name
- (askfile
- (prompt "OK, where to install LastAlert3 ??")
- (help @askfile-help)
- (default "SYS:Utilities/")
- )
- )
-
- (copyfiles
- (
- (prompt "Copying DaLastAlert3...")
- (help @copyfiles-help)
- (source "")
- (choices #path)
- (dest name)
- ))
-
- (complete 50)
-
- ;=============================================================================
-
- (set name-alerts
- (askfile
- (prompt "OK, where to install LastAlert3.alerts ??")
- (help @askfile-help)
- (default "S:")
- )
- )
-
- (copyfiles
- (
- (prompt "Copying DaLastAlert3.alerts ...")
- (help @copyfiles-help)
- (source "")
- (choices #path-alerts)
- (dest name-alerts)
- ))
-
- (complete 75)
-
- ;=============================================================================
-
- (set icon
- (askchoice
- (prompt "What icon do you want ??")
- (help @askoptions-help)
- (choices "Magic Workbench Icon" "NewIcons")
- (default 1)
- )
- )
-
- (if (= icon 1)
- (
- (copyfiles
- (
- (prompt "Copying DaLastAlert3-Check.info...")
- (help @copyfiles-help)
- (source "")
- (choices "68000/DaLastAlert3-Check.info")
- (dest name-check)
- )
- )
- (copyfiles
- (
- (prompt "Copying DaLastAlert3.info...")
- (help @copyfiles-help)
- (source "")
- (choices "68000/DaLastAlert3.info")
- (dest name)
- )
- )
- )
- (
- (copyfiles
- (
- (prompt "Copying LastAlert3-Check.info...")
- (help @copyfiles-help)
- (source "")
- (choices "MWBIcons/DaLastAlert3-Check.info")
- (dest name-check)
- )
- )
- (copyfiles
- (
- (prompt "Copying LastAlert3.info...")
- (help @copyfiles-help)
- (source "")
- (choices "MWBIcons/DaLastAlert3.info")
- (dest name)
- )
- )
- )
- )
-
- (complete 90)
-
- ;=============================================================================
-
- (set #newname-check (cat name-check "DaLastAlert3-check"))
- (set #newname-alerts (cat (expandpath name-alerts)"/DaLastAlert3.alerts"))
- (set #newname (cat name "DaLastAlert3"))
-
- (tooltype
- (dest #newname-check)
- (settooltype "EXEC" #newname)
- (setstack 4096)
- (noposition)
- )
-
- (tooltype
- (dest #newname)
- (setstack 4096)
- (noposition)
- )
-
- (complete 96)
-
- (set #string3 (cat "setenv " "DaLastAlert3 " #newname-alerts))
- (set #string4 (cat "copy env:DaLastAlert3 envarc:"))
-
- (run #string3)
- (run #string4)
-
- (complete 100)
-